.pc = $801 "BASIC Entry"
    // This corresponds to the BASIC statement "1 SYS 2062"
    .byte 12, 8, 1, 0, 158, 32, 50, 48, 54, 50, 0, 0, 0

    // and this is address 2062
    jmp main_entry

.import source "util.asm"        
.import source "music.asm"
.import source "testsong.asm"

.pc = * "Main Routines"

main_entry:
    // disable standard interrupt
    lda #1
    sta $dc0d

    jsr init_music

    // start playing music
    sei
    :PlayChannel(0, testsong.channel_0_data)
    :PlayChannel(1, testsong.channel_1_data)
    :PlayChannel(2, testsong.channel_2_data)
    cli

loop_forever:
    jmp loop_forever
